home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / apps / math / classdoc.zoo / relocpgm.a < prev    next >
Text File  |  1991-09-29  |  457b  |  38 lines
  1.     dcr.5    $02dcc
  2. relpgm    
  3.     dcr.5    relpgmend-relpgm
  4.     
  5.     jsr    $0679b
  6.     
  7.     move.a    pc,c
  8. .1    
  9.     move.a    #.1,a
  10.     sub.a    a,c
  11.     move.a    c,b
  12.     move.a    #reloc_off,c
  13.     add.a    b,c
  14.     move.a    c,d0
  15.     move.a    b,c
  16.     move.a    c,(d0)
  17.     
  18.     move.a    #reloc_tab,c
  19.     add.a    b,c
  20.     
  21.     move.a    c,d0
  22. .3    
  23.     move.a    (d0),c
  24.     add.a    #5,d0
  25.     beq.a    c,0,.2
  26.     add.a    b,c
  27.     move.a    c,d1
  28.     move.a    (d1),c
  29.     add.a    b,c
  30.     move.a    c,(d1)
  31.     bra    .3
  32. .2    
  33.     jsr    $067d2
  34.     move.a    (d0),a
  35.     add.a    #5,d0
  36.     jmp    (a)
  37. relpgmend    
  38.